home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1985 Winter
/
rerun-1985-winter.d64
/
source print
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
251b
|
20 lines
10 printchr$(147)
20 dim a$(255)
30 input "filename[160]";nf$
40 na$="==="+nf$+"==="
50 nf$="0:"+ nf$ +",s,r"
60 open9,8,9,nf$
70 input#9,a$(c)
80 print a$(c)
90 c=c+1
100 if st=0 then 70
110 close9
120 open4,4
130 print#4,na$
140 print#4
150 for x=0 to c-1
160 print#4,a$(x)
170 next
180 print#4
190 close4